home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / UTILFILE / UNPROPTC.LZH / BASIC2.MOD < prev    next >
Text File  |  1984-05-28  |  2KB  |  61 lines
  1.                         BASIC20.PAT
  2.  
  3. The following patches to BASIC.COM and BASICA.COM ver 2.0 were
  4. downloaded from the IBM Dealer Support database on 5/18/84.
  5.  
  6.                         *       *       *
  7.  
  8. 12/14/83
  9.  
  10.        IBM PATCH #AH0088   LOF function returns wrong value
  11.  
  12. In BASIC and BASICA 2.0, the LOF function returns the wrong value
  13. for records 127 and above.  Correct values will be returned if
  14. the file is closed, reopened, and reset to record #1.  The following
  15. pgm demonstrates this situation:
  16.  
  17.         EXAMPLE:
  18.  
  19.         10 OPEN "R",1,"PROB.TXT",256
  20.         20 FIELD 1,255 AS D$
  21.         30 LSET D$=STRING$(255,"*")
  22.         40 FOR R=1 TO 135
  23.         50 PUT 1,R
  24.         60 PRINT "Rec = ";R;"LOF = ";LOF(1)/256
  25.         70 NEXT
  26.         80 CLOSE
  27.         90 OPEN "R",1,"PROB.TXT"256
  28.         100 PRINT LOF(1)/256
  29.         110 FIELD 1,255 AS D$
  30.         120 PUT 1,1
  31.         130 PRINT LOF(1)/256
  32.         140 CLOSE
  33.         150 KILL "PROB.TXT"
  34.         160 END
  35.  
  36. In the script below, you enter what appears within  < >. "xxxx" = Don't care.
  37.  
  38. The fix for BASIC.COM is as follows:
  39.  
  40.         A><DEBUG BASIC.COM> <cr>
  41.         -<E1F65> <cr>
  42.         xxxx:1F65  7E.<76> <cr>
  43.         -<W> <cr>
  44.         Writing 3F80 bytes
  45.         -<Q> <cr>
  46.         A>
  47.  
  48. The fix for BASICA.COM is as follows:
  49.  
  50.         A><DEBUG BASICA.COM> <cr>
  51.         -<E44D2> <cr>
  52.         xxxx:44D2  7E.<76> <cr>
  53.         -W <cr>
  54.         Writing 6580 Bytes <cr>
  55.         -Q <cr>
  56.         A>
  57.  
  58. Run the test program on the patched files.
  59.  
  60. -- Jim Gainsley  CIS:[70346,457] --
  61.